<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>32</cardCount>
<cardID>2997</cardID>
<listID>2065</listID>
<cantModify><true /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><true /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>-- ••• Express Yourself, Version 1, Sun, Sep 27, 1992 8:43 PM-- ••• © Copyright 1992 All Rights Reserved-- ••• ACLU of Northern California-- ••• HyperTalk written by Jim Locker-- ••• Portions of this program-- ••• are the property of Red Dot Interactive, Inc.-- ••• Red Dot Interactive, Inc. reserves the right to the interface design,-- ••• program code, game design, and other interface elements.on startupglobal didStartupput "done" into didStartupsetUpEY-- pass startupend startupon openstackglobal soundLevel,visitedSections,currFLD,UnusedQuestionsglobal wildCardList,bbsUserName,BTstatus,goBackStateglobal didStartupif not rightVersion() thendomenu "Quit Hypercard"exit openstackend ifif didStartup is not "done" thensetUpEYput "done" into didStartupend ifunlock screenshow cd fld "Wait" of cd 1lock screenif LowMemMsg() then exit to hypercardset the cursor to "watch"myMenusLMRput timingTest() into theSpeedcheckMyFontsput false into goBackStateput false into BTstatusset the blindtyping to BTstatusput "Basis" into currFLDput "1,1,1,1,1" into visitedSectionsrepeat with i = 1 to 75 -- (the number of lines of script of cd btn "Questions" of cd "Game")put i into item i of UnusedQuestionsend repeatput "1,2,3,4,5,6,7,8,9" into wildCardListput empty into bbsUserNameput 7 into soundLevelsetvolume(soundLevel)hide cd fld "Wait" of cd 1if the optionkey is down thenvisual dissolve very fastgo cd "MM"elseunlock screenintroend ifend openstackon centerUPput screenRect() into theScreenset loc of cd window to ((item 3 of theScreen) - 512)/2,((item 4 of theScreen) - 342)/2end centerUpon setUpEYglobal theSpeedhide titlebarhide msgcenterUPLA-- set lockerrordialogs to trueend SetUpEYon introglobal theSpeedLMRset the cursor to "none"if theSpeed ≤ 11 thenFastAelseSlowAend ifset the cursor to "watch"play "zizz"visual dissolve fastgo cd MMupdateChecksend introon animglobal theSpeedlmrset the cursor to "none"lock screengo cd 1unlock screen with visual dissolve very fastif theSpeed ≤ 11 thenFastAelseSlowAend ifset the cursor to "watch"play "zizz"visual dissolve fastgo cd MMupdateChecksend animfunction timingTestglobal theSpeedlock screengo cd 1put the ticks into Time1show 6 cdsput the ticks - time1 into theSpeedgo cd 1unlock screenreturn (theSpeed)end timingTeston SlowAgo cd 3go cd 2go cd 5domusicwait 120go cd 7wait 185end SlowAon fastArepeat 2go cd 2wait 4go cd 4wait 6end repeatdoMusicrepeat 6go cd 4wait 4go cd 5wait 5end repeatgo cd 6wait 3go cd 7wait 184end fastAon checkMyFonts-- set lockerrordialogs to trueput empty into fontmsgif not Fontexists(helvetica,9) then put "Helvetica 9" into line 1 of fontmsgif not Fontexists(helvetica,24) then put "Helvetica 24" into line 2 of fontmsgif not Fontexists(times,12) then put "Times 12" into line 3 of fontmsgif not Fontexists(times,14) then put "Times 14" into line 4 of fontmsgif not Fontexists(Geneva,12) then put "Geneva 12" into line 5 of fontmsgif fontmsg is not empty thenAnswer "These fonts are missing from your system:"&return&fontmsg&return&return&¬"Express Yourself needs these fonts to display properly." with "OK"end if-- set lockerrordialogs to falseend checkMyFontson myMenusif the optionkey is down then exit myMenus-- set lockerrordialogs to trueset userlevel to 3delete menu "File"delete menu "Edit"delete menu "Go"delete menu "Font"delete menu "Style"create menu "Express Yourself"if there is a menu "Hide Others" then domenu "Hide Others"set userlevel to 1end myMenusfunction LowMemMsgget the heapspaceif the heapspace < 50000 then -- too lowAnswer "Your memory is too low for some features of the program to run. You may increase "&¬"available memory by increasing the partition size of HyperCard and/or removing desk "&¬"accessories, fonts, INITs, or extensions from your system." with "Quit" or "Continue"if it is "Quit" thengo homeexit to hypercardend ifif there is a window "The First Amendment" then close window "The First Amendment"if there is a window "ACLUtools" then close window "ACLUtools"return trueelsereturn falseend ifend LowMemMsgon commandKeydown whichkeyif whichkey is "M" thenif there is a bg btn "MM" thenclick at the loc of bg btn "MM"elsereturnMMend ifend ifif whichkey is "/" thenif there is a bg btn "Help" then click at the loc of bg btn "Help"exit commandKeydownend ifif whichkey is "T" and short name of this cd is not "Game" thenif there is a bg btn "Tools" then click at the loc of bg btn "Tools"exit commandKeydownend ifif whichkey is "Q" thenpass commandkeydownexit commandKeydownend ifif whichkey is "P" thenACLUprintexit commandKeydownend ifif whichkey is "R" then -- and short name of this cd is not "Game" then-- ACLUrefsexit commandKeydownend ifif whichkey is in "1,2,3,4,5" then -- go to section 1,2,3,4,5if the short name of this cd is "MM" then click at the loc of cd btn ("mm"&(whichKey))exit commandKeydownend ifif whichKey is in "x,c,v,a,z" thenpass commandkeydownexit commandkeydownend ifif the cantmodify of this stack is "true" thenexit commandkeydownelsepass commandKeydownend ifend commandKeydownon returnkeyif the blindtyping is true then pass returnkeyend returnkeyon enterkeyif the blindtyping is true then pass enterkeyend enterkeyon arrowKey whatif the cantmodify of this stack is "false" then pass arrowkeyend arrowkeyon domenu whatif what is "Quit Hypercard" thenif LowMemMsg() thengo homeexit to hypercardend ifAnswer "Are you sure you want to quit this program?" with "Cancel" or "OK"if it is "OK" thenvisual dissolve very fastgo cd 1pass domenuelseexit to hypercardend ifend ifif the cantmodify of this stack is "false" thenpass domenuelseif what is in "undo,cut text,copy text,paste text"&¬"Print Field...,Print Card,Compact Stack" thenpass domenuend ifend ifend domenuon checkOff whatBtn -- handles MM btns checkoffglobal visitedSectionsput 2 into item whatBtn of visitedSectionsend checkOffon updateChecksglobal visitedSectionsset the icon of cd btn mm1 to 210 + item 1 of visitedSectionsset the icon of cd btn mm2 to 220 + item 2 of visitedSectionsset the icon of cd btn mm3 to 230 + item 3 of visitedSectionsset the icon of cd btn mm4 to 240 + item 4 of visitedSectionsset the icon of cd btn mm5 to 250 + item 5 of visitedSectionsend updateCheckson COPYonlyset the userlevel to 2set the locktext of target to falseclick at the clicklocif the mouse is "up" thenset the locktext of target to trueend ifend COPYonlyon BasicTransitionplay stopplay ("Babble"&random(3))lock screenend BasicTransitionon resumeStackglobal stackConditions,soundlevelsetVolume(soundLevel)centerUP -- set the loc of the stack wdw to cntr screen and fix floating PICTS to it!!!manageWindows "Show","false"moveWindowlaend resumeStackon resumelaend resumeon suspendStackglobal stackConditions -- items are: userlevel,usermodify,menubar state, titlebar,msg state, etc.-- set the userlevel & cantmodify, etc. to what it wasput the userlevel into item 1 of stackConditionsput the usermodify into item 2 of stackConditionssetVolume(7)manageWindows "hide","false"-- pass suspendStackend suspendStackon manageWindows which,navigate -- hide or show windows, suspendstack vs. go within stackglobal theMainPict, theLabelPictif which is "show" thenif there is a window theMainPict then show window theMainPictif there is a window theLabelPict then show window theLabelPictif there is a window "The First Amendment"then show window "The First Amendment"if there is a window "ACLUtools" then show window "ACLUtools"if short name of this cd is "Hap 0" then hide cd pictexit manageWindowsend ifif which is "hide" and not navigate then -- only if the caller is a suspend hide the pallettesif there is a window "The First Amendment"then hide window "The First Amendment"if there is a window "ACLUtools" then hide window "ACLUtools"end ifif short name of this cd is "Hap 0" then show cd pictif there is a window theLabelPict then hide window theLabelPictif there is a window theMainPict then hide window theMainPictend manageWIndowsfunction rightVersion -- ••get the versionif it < 2.1 thenanswer "Express Yourself needs HyperCard 2.1 or later to work properly."return falseelsereturn trueend ifend rightversionon goKeyCasesplay "click" "D#4t"if there is a window "The first amendment" then close window "The first amendment"if there is a window "The first amendment" then close window "The first amendment"get heapspace()if LowMemMsg() then exit to Hypercardget heapspace()get heapspace()NavToRefs "Reference2"set lockmessages to falseget heapspace()get heapspace()if there is a window "The first amendment" then close window "The first amendment"send mouseup to bg btn "Key Cases 1"end goKeyCaseson goRightsplay "click" "D#4t"if there is a window "The first amendment" then close window "The first amendment"if there is a window "The first amendment" then close window "The first amendment"NavToRefs "Reference"get heapspace()if LowMemMsg() then exit to Hypercardend goRightson ACLUrefsplay "click"if there is a window "The first amendment" then close window "The first amendment"NavToRefs "Reference"end ACLUrefson NavToRefs whichRefCardif LowMemMsg() then exit to Hypercardif the short name of this cd contains "Reference" then exit NavToRefs --LMRglobal goBackStateif there is a window "The First Amendment" thenclose window "The First Amendment"end if-- check if on notebook or BBSif the id of this bg is 15271 or the id of this bg is 15622 thensend closebackground to this cdend ifif LowMemMsg() then exit to HyperCardmanagewindows "hide","true"stndrdTRANSITIONgo cd 1lock screenget heapspace()get heapspace()go cd whichRefCardget heapspace()get heapspace()put true into goBackStateshow bg btn "GoBack"hide bg btn "HideGoBack"unlock screen with visual wipe right very fastend NavToRefson theGoBackglobal triggerCardset the cursor to "watch"lock screenset lockErrordialogs to truesend closebackground to this cdLMRgo cd 1unlock screen with visual dissolve very fastlock screengo triggerCardif the short name of this cd contains "hero" thenresetProfileselseif the short name of this cd is "Hap 0" thenrestoreFROMspeakOUTend ifend ifplay "BackHit"if the id of this bg is 15271 or the id of this bg is 15622 thensend openbackground to this cdend ifunlock screen with visual wipe left very fastend theGoBackon ACLUsoundplay "click"global soundLevelanswer "Set Volume Level" with "Off" or "Med" or "High"if it is "Off" then setvolume(0)if it is "Med" then setvolume(3)if it is "High" then setvolume(7)play "harpsichord" "fx c dt" tempo 250end ACLUsoundon ACLUprintplay "click"if the short name of this cd is "Hap 0" thenanswer "Choose what you want to print…" with "Print Text" or "Cancel"elseif the short name of this cd is "Game" thenanswer "Print…" with "Print Card" or "Cancel"elseanswer "Choose what you want to print…" with "Print Text" or "Print Card" or "Cancel"end ifend ifif it is "Print Text" then domenu "Print Field..."else if it is "Print Card" then domenu "Print Card"end ACLUprinton ACLUwriteplay "click"if LowMemMsg() then exit to Hypercardif the id of this bg is 15271 then exit ACLUwriteLMRmanagewindows "hide","true"stndrdTRANSITIONgo cd 1lock screenget heapspace()go bg id 15271send openbackground to this cdsend opencard to this cdshow bg btn "GoBack"hide bg btn "HideGoBack"unlock screen with visual wipe right very fastend ACLUwriteon ACLUcopyplay "click"if LowMemMsg() then exit to Hypercardset lockerrordialogs to truedomenu "Copy Text"end ACLUcopyon ACLUpasteplay "click"set lockerrordialogs to truedomenu "Paste Text"end ACLUpasteon LRset lockrecent to trueend LRon LMRset lockmessages to trueLRend LMRon showFirstAif there is a window "The First Amendment" thenclose window "The First Amendment"exit showFirstAelseif LowMemMsg() then exit to Hypercardpalette "The First Amendment","134,72"end ifend showFirstAon goQUIT -- stack-wide QUIT handlerif LowMemMsg() thengo Homeexit to hypercardelsedomenu "Quit Hypercard"end ifend goQUITon STNDRDtransitionvisual dissolve very fast to whitevisual wipe right very fastend STNDRDtransitionon goHELP -- stack-wide HELP handlerget short name of this cdif it is "MM" thenshowINFOTEXT (script of cd fld theTEXT),"26"end ifend goHELPon showINFOTEXT whattext,theID,theScrolllock screenshow cd btn "CloseBox"set the name of cd btn id theID to short name of the targetshow cd btn id theIDshow cd btn "Outline"show cd fld theTEXTif whatText is not empty then put whattext into cd fld theTEXTset the scroll of cd fld theTEXT to thescrollunlock screen with zoom openend showINFOTEXTon doACLUtoolsget heapspace()if lowMemMsg() then exit to hypercardif there is a window ACLUtools thenclose window ACLUtoolsexit doACLUtoolselsepalette ACLUtools,"448,172"-- set the loc of window acluTOOLS to 449,175end ifend doACLUtoolson closeStackglobal soundLevelset the cursor to "none"LMRlock screenstndrdTransitiongo cd "credit1" -- your powerset the showpict of cd "Credit1" to trueunlock screen with dissolve very fastPACKlock screenwait 80go cd "credit2"hide cd pictunlock screen with dissolve -- show ACLU creditwait 105lock screenhide bg pictunlock screen with dissolve fastwait 3lock screenshow bg pictshow cd pictunlock screen with dissolve very fastwait 113put 7 into soundLevelsetVolume(soundLevel)end closeStackon PACKif freesize of this stack ≥ 50000 thenif the diskspace > ((size of this stack)*2) thenAnswer "Do you want to compact Express Yourself to free up disk space?" with "Not now" or "Compact"if it contains "Compact" thenset the cantmodify of this stack to falsedomenu "Compact Stack"set the cursor to noneset the cantmodify of this stack to trueend ifelseAnswer "Your disk is getting full. Express Yourself does not have enough room "&¬"on this disk to compact." with "OK"end ifend ifend PACKon DOmusic -- intro musicif the optionkey is not down then play bang tempo 300 "ae b# c g d a c f f# b# caas ae b# c g a f c f# b# cas ae b# f c f f# ca aw "end DOmusicon stndrdRETURNplay stopplay zizzvisual wipe left fastend stndrdRETURNon returnMMset the cursor to "watch"if there is a window "The First Amendment" then close window "The First Amendment"if there is a window "ACLUtools" then close window "ACLUtools"if there is a window "tools" then close window "tools"lock screenif lowMemMsg() then exit to hypercardgo cd 1unlock screen with visual dissolve very faststndrdRETURNgo to cd "MM"updateChecksset the cursor to handhide msgend returnMMon moveWindowglobal theMainPict,theLabelPictif there is a window theMainPict then set the loc of window theMainPict to "72,7"if there is a window theLabelPict then set the loc of window theLabelPict to "368,82"end movewindowon UA -- UnLock Allshow menubarshow titlebarset cantAbort of this stack to falseset cantPeek of this stack to falseset lockrecent to falseunlock screenMYset lockmessages to falseend UAon LAset cantAbort of this stack to trueset the cantPeek of this stack to trueset the cantmodify of this stack to trueset the userModify to falseset userlevel to 1hide titlebarhide msghide menubarend LAon HLcN -- turn off all cd btns hilitesrepeat with i=1 to the number of cd btnsset the hilite of cd btn i to falseend repeatend HLcNon HLcy -- turn off all cd btns hilitesrepeat with i=1 to the number of cd btnsset the hilite of cd btn i to trueend repeat
